home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er
/
64ER_CD.iso
/
sh2x
/
sh27a.d64
/
startadr.>>6000
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
1995-03-30
|
505b
|
29 lines
100 REM
110 REM PROGRAMM ZUM AENDERN DER
120 REM STARTADRESSE EINES FILES
130 REM AUF $6000 (KOALAPAINTER
140 REM BILDER START)
150 REM
160 REM
170 INPUT "FILENAME ";A$
180 :
190 OPEN 2,8,15
200 OPEN 3,8,3,"#":GOSUB340
210 OPEN 1,8,0,A$ :GOSUB340
220 :
230 PRINT#2,"M-R"+CHR$(24)+CHR$(0)+CHR$(2)
240 GET#2,TR$,SE$
250 PRINT#2,"U1:"3;0;ASC(TR$+CHR$(0));ASC(SE$+CHR$(0)):GOSUB340
260 PRINT#2,"B-P";3;2
270 PRINT#3,CHR$(0);CHR$(96);
280 PRINT#2,"U2:"3;0;ASC(TR$+CHR$(0));ASC(SE$+CHR$(0)):GOSUB340
290 CLOSE1
300 CLOSE2
310 CLOSE3
320 END
330 :
340 INPUT#2,F,F$,FT,FS:IF F=0 THEN RETURN
350 PRINT "DISK-FEHLER"
360 PRINTF;F$;FT;FS
370 GOTO 290